DESCRIPCIÓN
El geovisor presenta de manera visual la ubicación geográfica de los servicios disponibles en la ciudad universitaria, con un enfoque específico en resaltar sus respectivos horarios de atención y, en particular, sus momentos de cierre. Esta representación cartográfica permite a los usuarios obtener rápidamente información sobre la disposición espacial de los servicios y sus horarios operativos.
En el geovisor, una capa de escala de colores ha sido implementada para ofrecer una representación gráfica de los servicios que extienden sus horas de cierre hasta altas horas de la noche. Esta funcionalidad emplea una paleta de colores que abarca el periodo desde las 15:00 hasta las 22:00 horas, proporcionando una instantánea visual intuitiva de los servicios que operan durante este intervalo temporal.
Adicionalmente, la inclusión de la ruta del bus perimetral interno en el geovisor brinda a los usuarios la posibilidad de conocer la distancia aproximada entre paradas a lo largo de la ruta. Aunque se destaca que los tiempos de recorrido pueden experimentar variaciones, especialmente en horas pico con mayor afluencia estudiantil, se estima que el bus demora aproximadamente 15 minutos para completar todo el trayecto.
CIUDAD UNIVERSITARIA
La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.
Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual. 🗓️ Fecha de inicio: 30 de octubre 📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.
🕘Horario de emisión de tickets virtuales: * Desayuno: 6:00 am -Almuerzo: 10:00 am -Cena: 4:00 pm
🕘Horario de ingreso al servido: -Desayuno: 7:00 am -Almuerzo: 12:00 pm -Cena: 5:00 pm
👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición. 🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.
🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.
👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.
❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.
📢 ¡Atención sanmarquinos! ✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas! 🚌Paradero inicial 6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este). 🚌Salida de la Ciudad Universitaria Administrativos: 5:50 p. m. Explanada de Facultad de Odontología Estudiantes: 6:05 p. m. Explanada de la Facultad de Derecho 🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.
Ruta Norte: https://www.facebook.com/watch/?v=1265586960832468
Ruta Centro: https://www.facebook.com/watch/?v=1300748160786033
Ruta Sur: https://www.facebook.com/watch/?v=1424578748327902
Ruta Este: https://www.facebook.com/watch/?v=1263155727623178
DIEGO MORANTE SUAREZ
-Ingeniería Geográfica - UNMSM-
FB: https://www.facebook.com/Diegomorantesuarez/
LI: https://www.linkedin.com/in/diego-humberto-morante-suarez-b38a43279/
GH: https://github.com/DiegoMoranteSuarez
GMAIL: diego.morante@unmsm.edu.pe
DANAE QUISPE SOLORZANO
-Ingeniería Geográfica - UNMSM-
FB: https://www.facebook.com/profile.php?id=100001447611062&sk=about
LI: https://www.linkedin.com/in/danae-quispe-solorzano-06bb21234/
CORREO: danae.quispe@unmsm.edu.pe
ANDERSON LLIUYA CARRERA
-Ingeniería Geográfica - UNMSM-
FB: https://www.facebook.com/anderson.lliuya
LI: https://www.linkedin.com/in/anderson-lliuya-carrera-113a25213/?originalSubdomain=pe
CORREO: anderson.lliuya@unmsm.edu.pe
---
title: "Ubicate Cachimbo"
output:
flexdashboard::flex_dashboard:
theme: journal
orientation: columns
social: menu
source_code: embed
vertical_layout: fill
width: 70%
---
```{css, echo=FALSE}
body {
font-size: 15px;
```
```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(foreign)
library(fontawesome)
library(knitr)
library(foreign)
library(geojsonio)
library(dplyr)
library(RColorBrewer)
library(raster)
library(DT)
library(plotly)
library(leafem)
library(htmlwidgets)
```
# SERVICIOS EN LA CIUDAD UNIVERSITARIA
Column {data-width=1000}
-------------------------------------
### VISOR DE SERVICIOS
```{r}
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif")
perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")
calor_unmsm <- raster::crop(serv_calor, extent(perimetro))
calor_mask <- mask(x = calor_unmsm, mask = perimetro)
paleta_calor_servicio <- colorNumeric(c("red", "orange", "yellow", "blue", "darkblue"), values(calor_mask),
na.color = "transparent")
# Ruta al archivo DBF
ruta_dbf <- "C:/Users/diego/Documents/DashBoardUNMSM/tabla/tabla4/srvicio_table4.dbf"
# Leer el archivo DBF y convertirlo a un dataframe
dataframe_servicios <- read.dbf(ruta_dbf)
# first 20 quakes
df.20 <- dataframe_servicios[1:59,]
getColor <- function(dataframe_servicios) {
sapply(dataframe_servicios$TIPO_DE_SE, function(TIPO_DE_SE) {
# Personaliza los colores según los nombres de servicios
if (TIPO_DE_SE == "LIBRERÍA/IMPRENTA") {
"green"
} else if (TIPO_DE_SE == "KIOSKO/BODEGA") {
"yellowgreen"
} else if (TIPO_DE_SE == "CAFETERIA") {
"orange"
} else if (TIPO_DE_SE == "BIBLIOTECA") {
"blue"
} else {
"red"
}
})
}
icons <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = getColor(df.20)
)
# Leer el archivo GeoJSON
facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
servicios <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/SERV_UNMSM.geojson", what = "sp")
# Cargar datos del GeoJSON (líneas)
ruta_burro <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/ruta_burro.geojson", what = "sp")
paraderos <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/paraderos.geojson", what = "sp")
# Crear el mapa
m <- leaflet() %>%
setView(lng = -77.082, lat = -12.056, zoom = 16) %>%
addTiles(
urlTemplate = "https://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{z}/{y}/{x}",
attribution = 'Tiles © Esri — Source: Esri, i-cubed, USDA, USGS, AEX, GeoEye, Getmapping, Aerogrid, IGN, IGP, UPR-EGP, and the GIS User Community'
)
# Añadir control de capas y leyenda
m <- m %>%
addLayersControl(
overlayGroups = c("Facultades", "CartoDB","Ruta Bus","Servicios", "Paraderos", "Mapa de calor"), # Grupos de capas
options = layersControlOptions(collapsed = TRUE)
) %>%
addLegend(
position = "bottomright",
colors = c("green","orange","dodgerblue","red","blue","lightblue","lightsalmon", "gray", "purple"),
labels = c("Librería/Imprenta","Cafetería","Biblioteca","Kiosko/Bodega
","Paraderos","Bus Perimetral","Facultades", "CartoDB","Hora de Cierre"),
title = "Leyenda"
)
# Crear etiquetas
labels <- sprintf(
"<strong>%s</strong>",
facultades$NOMFAC
) %>% lapply(htmltools::HTML)
# Añadir polígonos al mapa
m <- m %>%
addPolygons(data=facultades,
weight = 2,
opacity = 1,
color = "lightsalmon",
dashArray = "0.5",
fillOpacity = 0.7,
highlightOptions = highlightOptions(
weight = 2,
color = "#000",
dashArray = "",
fillOpacity = 0.9,
bringToFront = TRUE),
label = labels,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto"),
group = "Facultades" # Agregar grupo para el control de capas
) %>%
addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
addMiniMap(position = "bottomleft",width = 100, height = 80)
m <- m %>%
addEasyButton(easyButton(
icon="fa-globe", title="Zoom Inicial",
onClick=JS("function(btn, map){ map.setZoom(16); }"))) %>%
addEasyButton(easyButton(
icon="fa-crosshairs", title="Localízame",
onClick=JS("function(btn, map){ map.locate({setView: true}); }")))
labels_ruta <- sprintf(
"<strong>Distancia:</strong> %s m",
ruta_burro$Longitud
) %>% lapply(htmltools::HTML)
# Añadir líneas con etiquetas emergentes
m <- m %>% addPolylines(
data = ruta_burro,
color = "lightskyblue", # Color del borde
fillOpacity = 0.2,# Color de las líneas
weight = 8, # Grosor de las líneas
group = "Ruta Bus", # Grupo para el control de capas
popup = ~paste( ruta_burro$Longitud, "metros"),
label = labels_ruta,
labelOptions = labelOptions(
style = list("font-weight" = "normal", padding = "3px 8px"),
textsize = "15px",
direction = "auto")
)
labels_paraderos <- sprintf(
"<strong>Paradero:</strong> %s",
paraderos$Paradero
) %>% lapply(htmltools::HTML)
m <- m %>% addPolygons(
data = paraderos,
fillColor = "blue", # Color de relleno
color = "blue", # Color del borde
fillOpacity = 0.5, # Opacidad del relleno
weight = 6, # Grosor del borde
group = "Paraderos", # Información emergente al hacer clic
label = labels_paraderos)
m <- m %>% addRasterImage(calor_mask, colors = paleta_calor_servicio, opacity = 0.6,
group = "Mapa de calor") %>%
addLegend(pal = paleta_calor_servicio, values = values(calor_mask),
title = "Hora de Cierre [h]")
labels_serv <- sprintf(
"<strong>%s</strong><br/>Horario: %s - %s",
df.20$TIPO_DE_SE, df.20$HOR_INI, df.20$HOR_FIN
) %>% lapply(htmltools::HTML)
m <- m %>%
addAwesomeMarkers(data = df.20, ~ESTE, ~NORTE, icon=icons, label=labels_serv, group = "Servicios") %>%
setView(lng = -77.082, lat = -12.056, zoom = 16)
# Mostrar el mapa
m
```
Column {.tabset .tabset-fade}
-------------------------------------
### Descripción
**DESCRIPCIÓN**
El geovisor presenta de manera visual la ubicación geográfica de los servicios disponibles en la ciudad universitaria, con un enfoque específico en resaltar sus respectivos horarios de atención y, en particular, sus momentos de cierre. Esta representación cartográfica permite a los usuarios obtener rápidamente información sobre la disposición espacial de los servicios y sus horarios operativos.
En el geovisor, una capa de escala de colores ha sido implementada para ofrecer una representación gráfica de los servicios que extienden sus horas de cierre hasta altas horas de la noche. Esta funcionalidad emplea una paleta de colores que abarca el periodo desde las 15:00 hasta las 22:00 horas, proporcionando una instantánea visual intuitiva de los servicios que operan durante este intervalo temporal.
Adicionalmente, la inclusión de la ruta del bus perimetral interno en el geovisor brinda a los usuarios la posibilidad de conocer la distancia aproximada entre paradas a lo largo de la ruta. Aunque se destaca que los tiempos de recorrido pueden experimentar variaciones, especialmente en horas pico con mayor afluencia estudiantil, se estima que el bus demora aproximadamente 15 minutos para completar todo el trayecto.
**CIUDAD UNIVERSITARIA**
La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.
### Tabla
```{r, echo=FALSE}
servicios_CU <- dplyr::select(df.20, OBJECTID, ESTE, NORTE, HOR_INI,TIPO_DE_SE, HOR_FIN)
datatable(servicios_CU ,class="cell-border hover")
```
### Gráfica
```{r, echo=FALSE}
grafico_serv_torta <- data.frame(
TIPO_DE_SE = c("CAFETERÍA", "KIOSKO/BODEGA", "LIBRERÍA/IMPRENTA","BIBLIOTECA", "AUTOSEGURO", "SALUD/CLINICA"),
X1960 = c(8, 29, 15, 5, 1, 1 )
)
data_torta <- grafico_serv_torta[, c('TIPO_DE_SE', 'X1960')]
fig <- plot_ly(data_torta, labels = ~TIPO_DE_SE, values = ~X1960) %>% add_pie(hole = 0.6)
fig <- fig %>% layout(
title = 'PORCENTAJES DE SERVICIOS EN LA CIUDAD UNIVERSITARIA',
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)
)
fig
```
# COMEDOR UNIVERSITARIO
## UNMSM
### **Oficina General de Bienestar Universitario - UNMSM**
Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual.
🗓️ Fecha de inicio: 30 de octubre
📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.
🕘Horario de emisión de tickets virtuales:
* Desayuno: 6:00 am
-Almuerzo: 10:00 am
-Cena: 4:00 pm
🕘Horario de ingreso al servido:
-Desayuno: 7:00 am
-Almuerzo: 12:00 pm
-Cena: 5:00 pm
👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición.
🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.
🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.
👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.
❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.
### **USO DE LA APLICACIÓN**
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/app_uso.jpg")
```
## **TICKETS VIRTUAL**
### **TICKETS VIRTUAL**
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/apk_unmsm.jpg")
```
# BUS EXTERNO
## BUS EXTERNO
### RUTAS DEL BUS EXTERNO
📢 ¡Atención sanmarquinos!
✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas!
🚌Paradero inicial
6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este).
🚌Salida de la Ciudad Universitaria
Administrativos:
5:50 p. m. Explanada de Facultad de Odontología
Estudiantes:
6:05 p. m. Explanada de la Facultad de Derecho
🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.
Ruta Norte:
https://www.facebook.com/watch/?v=1265586960832468
Ruta Centro:
https://www.facebook.com/watch/?v=1300748160786033
Ruta Sur:
https://www.facebook.com/watch/?v=1424578748327902
Ruta Este:
https://www.facebook.com/watch/?v=1263155727623178
### BUS EXTERNO
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus externo.jpg")
```
## BUS EXTERNO
### RUTA NORTE
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/norte.jpg")
```
### RUTA CENTRO
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/centro.jpg")
```
## BUS EXTERNO
### RUTA SUR
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/sur.jpg")
```
### RUTA ESTE
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/este.jpg")
```
# AUTORES { .inverse }
## ESCUELA Y UNIVERSIDAD
### UNIVERSIDAD Y ESCUELA PROFESIONAL
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/IG_unmSM.png")
```
Column
-------------------------------------
### Autor 1
<p style="text-align: center;"><span style="color: #000000;"><strong>DIEGO MORANTE SUAREZ</strong></span></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingeniería Geográfica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB: <a href="https://www.facebook.com/Diegomorantesuarez/">https://www.facebook.com/Diegomorantesuarez/</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI: <a href="https://www.linkedin.com/in/diego-humberto-morante-suarez-b38a43279/">https://www.linkedin.com/in/diego-humberto-morante-suarez-b38a43279/</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>GH: <a href="https://github.com/DiegoMoranteSuarez">https://github.com/DiegoMoranteSuarez</a></strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>GMAIL: <a href="mailto:diego.morante@unmsm.edu.pe">diego.morante@unmsm.edu.pe</a></strong></span></p>
<p style="text-align: left;"> </p>
### Foto
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Diego.png")
```
Column
-------------------------------------
### Autor 2
<p style="text-align: center;"><strong>DANAE QUISPE SOLORZANO</strong></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingeniería Geográfica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB: https://www.facebook.com/profile.php?id=100001447611062&sk=about</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI: https://www.linkedin.com/in/danae-quispe-solorzano-06bb21234/</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>CORREO: danae.quispe@unmsm.edu.pe </strong></span></p>
### Foto
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Danae.png")
```
Column
-------------------------------------
### Autor 3
<p style="text-align: center;"><strong>ANDERSON LLIUYA CARRERA</strong></p>
<p style="text-align: center;"><em><span style="color: #000000;"><strong>-Ingeniería Geográfica - UNMSM-</strong></span></em></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>FB: https://www.facebook.com/anderson.lliuya</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>LI: https://www.linkedin.com/in/anderson-lliuya-carrera-113a25213/?originalSubdomain=pe</strong></span></p>
<p style="text-align: left;"><span style="color: #000000;"><strong>CORREO: anderson.lliuya@unmsm.edu.pe</strong></span></p>
### Foto
```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/Anderson.png")
```